﻿Public Class Clientes

    Private _Nombre As String
    Private _Direccion As String
    Private _Localidad As String
    Private _telefono As String
    Private Lista As New List(Of Clientes)

    Sub New()
        Me._Nombre = _Nombre
        Me._Direccion = _Direccion
        Me._Localidad = _Localidad
        Me._telefono = _telefono
    End Sub

    Public Property Nombre() As String
        Get
            Return Me._Nombre
        End Get
        Set(ByVal value As String)
            Me._Nombre = value
        End Set
    End Property

    Public Property Direccion() As String
        Get
            Return Me._Direccion
        End Get
        Set(ByVal value As String)
            Me._Direccion = value
        End Set
    End Property

    Public Property Localidad() As String
        Get
            Return Me._Localidad
        End Get
        Set(ByVal value As String)
            Me._Localidad = value
        End Set
    End Property

    Public Property Telefono() As String
        Get
            Return Me._telefono
        End Get
        Set(ByVal value As String)
            Me._telefono = value
        End Set
    End Property

    Function GetClientes(ByVal cliente)
        Dim clidao As New ClientesDAO
        Lista = clidao.GetClientes(cliente)
        Return Lista
    End Function
End Class
